home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Audio / Spectro / Source / ScrollingSound.m < prev    next >
Text File  |  1992-01-22  |  1KB  |  39 lines
  1.  
  2. #import "ScrollingSound.h"
  3. #import <soundkit/soundkit.h>
  4.  
  5. @implementation ScrollingSound
  6.  
  7. + newFrame:(NXRect const *)theFrame
  8. {
  9.     NXRect tempRect = *theFrame;
  10.     id theSoundView;
  11.     int borderType = NX_NOBORDER;
  12.     
  13.     [ScrollView getContentSize:&tempRect.size forFrameSize:&theFrame->size
  14.             horizScroller:YES vertScroller:NO borderType:borderType];
  15.     theSoundView = [SoundView newFrame:&tempRect];
  16.     [theSoundView setReductionFactor:32.0];
  17.     self = [super newFrame:theFrame];
  18.     [self setBorderType:borderType];
  19.     [self setHorizScrollerRequired:YES];
  20.     [self setDynamicScrolling:YES];
  21.     [self setDocView:theSoundView];
  22.     [self setBackgroundGray:NX_WHITE];
  23.     [self setAutoresizeSubviews:YES];
  24.     [self setAutosizing:NX_WIDTHSIZABLE|NX_HEIGHTSIZABLE];
  25.     [[theSoundView superview] setAutoresizeSubviews:YES];
  26.     [theSoundView setAutosizing:NX_HEIGHTSIZABLE];
  27.     return self;
  28. }
  29.  
  30. - setDelegate:anObject {return [[self docView] setDelegate:anObject];}
  31. - play:sender {return [[self docView] play:sender];}
  32. - stop:sender {return [[self docView] stop:sender];}
  33. - record:sender {return [[self docView] record:sender];}
  34.  
  35.  
  36. @end
  37.  
  38.  
  39.